#cs ----------------------------------------------------------------------------
	
	$Author: bjoern.kaiser $
	$LastChangedDate: 2008-04-16 09:06:15 +0000 (Wed, 16 Apr 2008) $
	
	Script Function:
	get drive letter with the tagged disk
	
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include-once

Func _drvscan_FindSource()
	Local $arrDrives
	$arrDrives = DriveGetDrive("CDROM")
	For $i=1 to $arrDrives[0]
		If FileExists($arrDrives[$i] & "\unixp.tag") Then
			Return $arrDrives[$i]
		EndIf
	Next
	Return 0
EndFunc   ;==>_drvscan_FindSource
